package body PO is

   protected body Shared_Data is

      function Get return Data is
      begin
         return Current;
      end Get;
      procedure Put(D : in Data) is
      begin
         Current := D;
      end Put;

   end Shared_Data;

end PO;
